perm filename UU.F4[CMS,LCS] blob sn#081718 filedate 1974-01-13 generic text, type T, neo UTF8
00010		TYPE 4
00100		ACCEPT 1,F
00200		IF(LOOKD(F))GO TO 2
00300	3	TYPE 30
00310	30	FORMAT(' NO SUCH FILE')
00350		CALL EXIT
00400	2	TYPE 20
00475	20	FORMAT(' FOUND IT')
00500	1	FORMAT(A5)
00550	4	FORMAT(' TYPE FILE NAME'/)
00600		END